We will use str_replace from the stringr package to put _ in the names
long <- long %>% mutate(
name = str_replace(name, "Board", "_Board"),
name = str_replace(name, "Alight", "_Alight"),
name = str_replace(name, "Average", "_Average")
)
long
# A tibble: 13,752 × 5
day date daily name value
<chr> <chr> <dbl> <chr> <dbl>
1 Monday 01/11/2010 952 orange_Boardings 877
2 Monday 01/11/2010 952 orange_Alightings 1027
3 Monday 01/11/2010 952 orange_Average 952
4 Monday 01/11/2010 952 purple_Boardings NA
5 Monday 01/11/2010 952 purple_Alightings NA
6 Monday 01/11/2010 952 purple_Average NA
7 Monday 01/11/2010 952 green_Boardings NA
8 Monday 01/11/2010 952 green_Alightings NA
9 Monday 01/11/2010 952 green_Average NA
10 Monday 01/11/2010 952 banner_Boardings NA
# ℹ 13,742 more rows